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DISCLAIMEB 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USEFS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USEES Group, in con- 
nection therewith. 



1620 USERS GROUP PROGRAM PEVIEW AND EVALUATION 



Program No. Date 

Program Name: 



1. Does the abstract adequately describe what the program is and 

what it does? Yes No^ 

Comment 



2. Does the program do what the abstract says ? Yes ^No_ 

Comment 

3. Is the Description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient 

detail? Yes ^No_ 

Comment 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently 

understandable ? Yes ^No_ 

Comment 

5. Does the source program compile satisfactorily (if applicable)? Yes ^No_ 

C omm ent 

6. Does the object program run satisfactorily? Yes No_ 

C omm ent 

7. Number of test cases run 



Mr. Robert J. Robinson (PREP) Company 
Marquette University 

Computing Center Address 
1515 W. Wisconsin Avenue 

Milwaukee 3, Wisconsin User Group 

Code 



Are any restrictions as to data, size, range, etc. covered 

adequately in- description? Yes ^No_ 

Comment 

8. Does the Program meet the minimal standards of the 1620 Users 

Group? Yes ^No_ 

Comment 

9. Please list any suggestions to improve the usefulness of the 
program. These will be passed on to the author for his consideration. 
Comment 

Please return to: Your Name 



THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED 
TO PARTICIPATE IN THIS EVALUATION. ; } 



1620/407 Flag Indicator Program 



Author : 
A. Amort 
Beloit Corporation 
Belolt, Wisconsin 
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DECK KEY 



1620/407 Flag Indicator Program 

Resulting Object Program 

Flag Indicator Program Output Using 
its own object deck for Input 
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1620 USERS GROUP LIBRARY 
PROGRAM ABSTRACT 

1. TITLE (If subroutine, state in Title): 1620/^07 FLAG INDICATOR PROGRAM 



2. Author; Organization; ANTHONY AMORT, BELOIT CORPORATION 

BELOIT, WISCONSIN 

Date; MARCH 23. 1964 Users Group Membership Code; 316^ 

3. Direct Inquiries to Name; ANTHONY AMORT. BELOIT CORPORATION 

BELOIT, WISCO NS I N P hone; EM-5-33n 

4. I 

PURPOSE/DESCRIPTION ; VERY OFTEN IT IS DESIRABLE TO LIST A 

[portion of an OBJECT PROGRAM, OR A PORTION OF CORE DUMP FOR 
DE-BUGGING PURPOSES ON THE k07 PRINTER. HOWEVER, THE kOJ LISTS 
ALL FLAGGED NUMBERS AS ALPHABETICAL CHARACTERS "J" THRU "R", 

'AND INTERPRETS A FLAGGED ZERO AS PLAIN ZERO. THIS PROGRAM WILL 
STRIP ALL FLAGS FROM THE CARDS, AND INDICATE THEIR PRESENCE BY 
A NUMBER "1" DIRECTLY ABOVE THE RESPECTIVE CHARACTERS SIMILAR 
TO THE WAY A ]k]0 LISTING SHOWS THE WORD MARKS. 



7. Specifications (Check or fill in appropriate spaces); 

a. Storage used by program; 1091 CORE LOCATIONS 

b. Equipment required by program; 

Card System X » Magnetic Tape System ; No. of Tapes ; 

Paper Tape System ^ Disk File System ; No. of Packs ; 

TNS, TNF, MF ; Auto divide ; Indirect addressing X { Floating point hardware 

Other (specify) ^07 WITH STANDARD 80*80 BOARD. 

Can program be used on lesser Machine? YES Specify which requirements can be 
easily removed INDIRECT ADDRESSING 

c. Programmin^j type (Check appropriate spaces); yj 1 1_ | 7Y PROGRAM 

Fortran without Format ; Fortran with Format ; 



Fortran II ; Mainline, Complete ; Subroutine or function subprogram(S or F) 

Is the program a library (ie, SPS) function to the Fortran system checked? 

SPS ; SPS - 1620/1710 X » 

Mainline, Complete X ; Macro_ ^; Subroutine ; 

Other programming language: ; Give details 



d. Language used in the writeup; 
8. Additional Remarks; NONE 
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TITLE: 1620/407 FLAG INDICATOR PROGRAM. 



PURPOSE/DESCRIPTION ; VERY OFTEN IT IS DESIRABLE TO LIST A 

PORTION OF AN OBJECT PROGRAM, OR A PORTION OF CORE DUMP FOR 
DE-BUGGING PURPOSES ON THE k07 PRINTER. HOWEVER, THE k07 LISTS 
ALL FLAGGED NUMBERS AS ALPHABETICAL CHARACTERS "J" THRU "R", 
AND INTERPRETS A FLAGGED ZERO AS PLAIN ZERO. THIS PROGRAM WILL 
STRIP ALL FLAGS FROM THE CARDS, AND INDICATE THEIR PRESENCE BY 
A NUMBER "1" DIRECTLY ABOVE THE RESPECTIVE CHARACTERS SIMILAR 
TO THE WAY A 1410 LISTING SHOWS THE WORD MARKS. 

INPUT/OUTPUT I THIS PROGRAM WILL PRODUCE TWO CARDS FROM EACH 

INPUT CARD; A FLAG INDICATOR CARD, AND A NUMERIC EQUIVALENT CARD 
SAME AS THE INPUT, BUT WITHOUT FLAGS. 

EXAMPLE; ASSUME THAT A CARD CONTAINS THE FOLLOWING; 



THE OUTPUT PRODUCED WILL BE; 
CARD (1) 11 11 1... 
CARD (2) 170029000682... 

THESE OF COURSE WILL APPEAR ON A LISTING THE SAME WAY. 
A RECORD MARK STILL LISTS AS A "Z", 
A STANDARD 80-80 BOARD IS REQUIRED FOR THE 407. 
METHOD ; N/A 

RESTRICTION/RANGE i IF THIS PROGRAM IS USED FOR OTHER CARDS THAN 
SPECIFIED ABOVE, BLANK SPACES ON INPUT CARDS WILL APPEAR AS ZEROES 
ON THE NUMERIC EQUIVALENT CARD. HOWEVER, THIS IS NO PROBLEM ON 
OBJECT PROGRAM OR DUMP CARDS BECAUSE THERE ARE NO BLANKS ON 
THESE CARDS. 

REMARKS; THE PROGRAM RUNS APPROXIMATELY AT PUNCH SPEED. 



170029000682 



1 




— O- 



F LAG I ND TC ATOR P ROGRAM 1 620/40 7 

START TD BLANK+l62,if00 

~- 00402 25 00931 00400 

NOW TFM AD 1, OUT, 7, AD1=ADDRESS OF OUT 

^ 0041 4 1 6 003 9 8 - 

RNCD INPUT-79 

00426 36 009 32 00 5 

DODO TFM AD2, |NPUT-79,7,AD2=ADDRESS OF FIRST DIGIT IN READ FIELD 



0043B 1 6 006 3 00932 
AGAIN BNF G0NE,AD2,11, IS THERE A FLAG 

00i450 Ml 00/474 006 t)f- 



TFM AD1,71,610, YES. PUT 71 IN AD 



.PUT 71 IN ADl INDIRECT 

00462 16 598 0007 1 



GONE AM AD 1,2, 10, UP ADl BY 2 

~ ;: 00474 I I 0059'^ 000132 

CF AD2,,6, CLEAR FLAG OVER DIGIT 

0486 33 00603 00000 ~ 

AM AD2, 1 ,10, UP AD2 BY 1 

498 1 1 00603 0^ 1 

CM AD2, INPUT,?, IS ADDRESS OF I NPUT=CONTENTS OF AD2 

005 1 1 4 00603 1 11 

BH QUIT,,, AD2 IS MORE SO BRANCH TO QUIT 

00522 46 00546 01100 : 

B AGAIN,,, AD2 IS LESS OR EQUAL SO GO TO AGAIN 

00534 49 00450 00000 — ■ 

QUIT WACD OUT,,, PUNCH FLAG INDICATOR CARD 

00546 39 00605 00400 



5^1i;:?HO jj'::? VJV)0 
TR OUT-1 ,BLANK-1 ,, CLEAR OUT FIELD 

0055B 3 1 00604 00 7 6 B 



WNCD INPUT-79,,, PUNCH STRIPPED INPUT FIELD 

570 33 00932 00400 



ADl DS 
AD2 DS 



B NOW,,, GO ALL OVER AGAIN 

00582 49 004 1 4 00000 



00598 00005 - 



OUT DAS 82 



00603 00005 



00605 00082 



BLANK DAS 82 



INPUT DS 80 



00769 000 82 ^ 



DEND START 



1 11 00080 



00402 

END OF PASS I I 

00402 START — 00 41 4 -N6W^ 04 38 — DODO 00450 mAW mkT^ GWE" " 

00546 QUIT 00598 ADl 00603 AD2 00605 OUT 00769 BLANK 
01 mi f NWF -~ 





FLAG INDICATOR 


PROGRAM 1620/407 »♦ 


START 


TD dLANk+1o2 » *»00 




NOW 












\J\Jw\J 


TFM AD? • INPUT— 7Q *7 


•AD2sADDRFSS OF FIRST DIGIT IN READ 


MOM I n 




T<; THFRF A FLAG 






YF<;«PUT 71 IN ADl INDIRECT 




AM Ani*9.in. 


IIP ADl RY 7 
\jr Mi/X c 




CF AD7 • • A • 


CI EAR FLAG OVER DIGIT 




AM AD? • 1 • 1 n • 


UP AD? RY 1 




TM AD? A T MPI IT . 7 • 


T<; ADDRFS^ OF T NPUT«CONTENTS OF AD2 




BH QU1T»»» 


AD2 IS MORE SO BRANCH TO QUIT 




B AGAIN*»» 


AD2 IS LESS OR EQUAL SO 60 TO AGAIN 


QUIT 


WACDOUTf »» 


PUNCH FLAG INDICATOR CARD 




TR OUT-lfBLANK-l* 


•CLEAR OUT FIELD 




WNCDINPUT-79»»» 


PUNCH STRIPPED INPUT FIELD 




B NOW«*» 


GO ALL OVER AGAIN 


ADl 


DS 5 




AD2 


DS 5 




OUT 


DAS 82 




BLANK 


DAS 82 




INPUT 


DS 80 





DENDSTART 
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RESULTING OBJECT PROGRAM 
36000720050036002010050044000120027626000590027^250001100000260009000269 00000 
26000950026431000000020026001140027425000000001149000120440559203331490592200001 
25009310040016005980060 5360093200500 16006030093244004740060LZ0010040200462 00002 
1600590000P11 10059800002330060L000001 1006030000114006030 10 11Z0010046200522 00003 
460054601 100490045000000390060500400310060400768380093200400Z0010052200582 00004 
490041400000Z 0010058200594 00005 

00000 L6000000050049000002 120572300001330572300000490571200000800096001 15 00006 
360010000500360017200500360024400500360031600500360000000500 00007 
0000000000001 02030400020406080003060902 1004080216 1005001 5 102006021814200Z 00008 
7041 128 200806 1422300908 172630000000000506070809001214161 8 1518 11242720242Z 00009 
8223635203 53045403632484455324946536048465462754453627180 123456789123456Z 00010 
7890234567890 J34567890JIC4567890JXL567890JKLM67890JKLMN7890JKLMN0890JICLMNZ 00011 
M8000000000049004020P90JKLMNOPQZ LlO038800019M9000OO00O00M900O360O?>00 00012 



4% 



4- 



OPERATION 



CLEAR CORE TO ZEROES. 



PLACE OBJECT DECK IN READER. 



PLACE CARDS THAT ARE DESIRED TO BE STRIPPED OF 
FLAGS ON TOP OF OBJECT DECK IN READER. 



PRESS PUNCH START. 



PRESS LOAD KEY. 

NOTE: AN UNMODIFIED SPS PROCESSOR WILL PRODUCE 
AN OBJECT DECK THAT WILL HALT AFTER BEING LOADED 
AND PRESSING THE START KEY ON THE CONSOLE IS 
NECESSARY TO READ THE INPUT CARDS. IT IS SUG- 
GESTED THAT IF THIS IS THE CASE, CHANGE COL. 1 AND 
ON CARD NO, 12 FROM 1^8 JO k] "^^ ELIMINATE THIS. 



FLAG INDICATOR PROGRAM OUTPUT USING ITS OWN OBJECT DECK FOR INPUT 

1 

360007200500360020100 50044000120027626000590027425000110000026000900026900000000 

1 

26000950026431000000020026001140027425000000001149000120^40559203331490592200001 

1 1 11111 

25009310040016005980060 536009320050016006030093244004740060320010040200462000002 

11 11 1 11111 

16005980007 11 100598000023300603000001 10060300001 14006030 10 11Z0010046200522000003 

II 1 1 

46005460 1100490045000000390060500400310060400768380093200400Z0010052200582000004 

III 1 

490041400000ZOOOOOOOO 10058200594000005 

1 1 1111 

00000003600000005004900000Z 120572300001 330572 300000490571200000800096001 15000006 

1 

3600100005003600172005003600244005003600316005003600000005000000000 7 

1 

000000000000 10203040002040608000306090210040802161005001 5 102006021814200Z0000008 

1 

7041 1282008061422300908172630000000000506070809001214161 81 518 11242720242Z0000009 

O822363520353045403632484455324946536048465462754453627180123456789123456Z0000010 
1 11 111 nil 11111 mill 1111111 111111 1 

7890234567890134567890 1245678901 23567890123467890123457890 12345689012345Z0000011 

1 1 11 111111111 111 1 

48000000000049004026790 12345678Z00003 1003880001949000000000049000360000000000012 
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